home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Textfiles / zines / Phrack / Phrack Issue 53.sit / 53 / P53-15 < prev   
Text File  |  1998-07-08  |  11KB  |  411 lines
  1. ---[  Phrack Magazine   Volume 8, Issue 53 July 8, 1998, article 15 of 15
  2.  
  3.  
  4. -------------------------[  Phrack Magzine Extraction Utility
  5.  
  6.  
  7. --------[  Phrack Staff
  8.  
  9.  
  10.     Neat0!  A python version!  Thanks to  Timmy 2tone <_spoon_@usa.net>.
  11. By all means, keep sending new versions on in.
  12.  
  13.  
  14.  
  15. ---------------------8<------------CUT-HERE----------->8---------------------
  16.  
  17. <++> EX/PMEU/extract2.c
  18. /*  extract.c by Phrack Staff and sirsyko 
  19.  *
  20.  *  (c) Phrack Magazine, 1997 
  21.  *      1.8.98 rewritten by route:
  22.  *          - aesthetics
  23.  *          - now accepts file globs
  24.  *      todo:
  25.  *          - more info in tag header (file mode, checksum)
  26.  *  Extracts textfiles from a specially tagged flatfile into a hierarchical 
  27.  *  directory strcuture.  Use to extract source code from any of the articles 
  28.  *  in Phrack Magazine (first appeared in Phrack 50).
  29.  *
  30.  *  gcc -o extract extract.c
  31.  *  
  32.  *  ./extract file1 file2 file3 ...
  33.  */
  34.  
  35.  
  36. #include <stdio.h>
  37. #include <stdlib.h>
  38. #include <sys/stat.h>
  39. #include <string.h>
  40. #include <dirent.h>
  41.  
  42. #define BEGIN_TAG   "<++> "
  43. #define END_TAG     "<-->"
  44. #define BT_SIZE     strlen(BEGIN_TAG)
  45. #define ET_SIZE     strlen(END_TAG)
  46.  
  47. struct f_name
  48. {
  49.     u_char name[256];
  50.     struct f_name *next;
  51. };
  52.  
  53. int
  54. main(int argc, char **argv)
  55. { 
  56.     u_char b[256], *bp, *fn;
  57.     int i, j = 0;
  58.     FILE *in_p, *out_p = NULL; 
  59.     struct f_name *fn_p = NULL, *head = NULL; 
  60.  
  61.     if (argc < 2)
  62.     {
  63.         printf("Usage: %s file1 file2 ... filen\n", argv[0]);
  64.         exit(0); 
  65.     }
  66.  
  67.     /*
  68.      *  Fill the f_name list with all the files on the commandline (ignoring
  69.      *  argv[0] which is this executable).  This includes globs.
  70.      */
  71.     for (i = 1; (fn = argv[i++]); )
  72.     {
  73.         if (!head)
  74.         {
  75.             if (!(head = (struct f_name *)malloc(sizeof(struct f_name))))
  76.             {
  77.                 perror("malloc");
  78.                 exit(1);
  79.             }
  80.             strncpy(head->name, fn, sizeof(head->name));
  81.             head->next = NULL;
  82.             fn_p = head;
  83.         }
  84.         else
  85.         {
  86.             if (!(fn_p->next = (struct f_name *)malloc(sizeof(struct f_name))))
  87.             {
  88.                 perror("malloc");
  89.                 exit(1);
  90.             }
  91.             fn_p = fn_p->next;
  92.             strncpy(fn_p->name, fn, sizeof(fn_p->name));
  93.             fn_p->next = NULL;
  94.         }
  95.     }
  96.     /*
  97.      *  Sentry node.
  98.      */
  99.     if (!(fn_p->next = (struct f_name *)malloc(sizeof(struct f_name))))
  100.     {
  101.         perror("malloc");
  102.         exit(1);
  103.      }
  104.     fn_p = fn_p->next;
  105.     fn_p->next = NULL;
  106.  
  107.     /*
  108.      *  Check each file in the f_name list for extraction tags.
  109.      */
  110.     for (fn_p = head; fn_p->next; fn_p = fn_p->next)
  111.     {
  112.         if (!(in_p = fopen(fn_p->name, "r")))
  113.         {
  114.             fprintf(stderr, "Could not open input file %s.\n", fn_p->name);
  115.         continue;
  116.         }
  117.         else fprintf(stderr, "Opened %s\n", fn_p->name);
  118.         while (fgets(b, 256, in_p))
  119.         { 
  120.             if (!strncmp (b, BEGIN_TAG, BT_SIZE))
  121.             { 
  122.             b[strlen(b) - 1] = 0;           /* Now we have a string. */
  123.                 j++;
  124.  
  125.                 if ((bp = strchr(b + BT_SIZE + 1, '/')))
  126.                 {
  127.                     while (bp)
  128.                     {
  129.                 *bp = 0;
  130.                 mkdir(b + BT_SIZE, 0700); 
  131.                 *bp = '/';
  132.                 bp = strchr(bp + 1, '/'); 
  133.             }
  134.                 }
  135.                 if ((out_p = fopen(b + BT_SIZE, "w")))
  136.                 {
  137.                     printf("- Extracting %s\n", b + BT_SIZE);
  138.                 }
  139.                 else
  140.                 {
  141.             printf("Could not extract '%s'.\n", b + BT_SIZE);
  142.             continue;
  143.             }
  144.         } 
  145.             else if (!strncmp (b, END_TAG, ET_SIZE))
  146.             {
  147.             if (out_p) fclose(out_p);
  148.             else
  149.                 {
  150.                 fprintf(stderr, "Error closing file %s.\n", fn_p->name);
  151.             continue;
  152.             }
  153.             } 
  154.             else if (out_p)
  155.             {
  156.                 fputs(b, out_p);
  157.             }
  158.         }
  159.     }
  160.     if (!j) printf("No extraction tags found in list.\n");
  161.     else printf("Extracted %d file(s).\n", j);
  162.     return (0);
  163. }
  164.  
  165. /* EOF */
  166. <-->
  167. <++> EX/PMEU/extract.pl
  168. # Daos <daos@nym.alias.net>
  169. #!/bin/sh -- # -*- perl -*- -n
  170. eval 'exec perl $0 -S ${1+"$@"}' if 0;
  171.  
  172. $opening=0;
  173.  
  174. if (/^\<\+\+\>/) {$curfile = substr($_ , 5); $opening=1;};
  175. if (/^\<\-\-\>/) {close ct_ex; $opened=0;}; 
  176. if ($opening) {                        
  177.         chop $curfile;                 
  178.         $sex_dir= substr( $curfile, 0, ((rindex($curfile,'/'))) ) if ($curfile =~ m/\//);
  179.         eval {mkdir $sex_dir, "0777";}; 
  180.         open(ct_ex,">$curfile"); 
  181.         print "Attempting extraction of $curfile\n";
  182.         $opened=1; 
  183. }
  184. if ($opened && !$opening) {print ct_ex $_}; 
  185. <-->
  186.  
  187. <++> EX/PMEU/extract.awk
  188. #!/usr/bin/awk -f
  189. #
  190. # Yet Another Extraction Script
  191. # - <sirsyko>
  192. #
  193. /^\<\+\+\>/ {
  194.         ind = 1
  195.         File = $2
  196.         split ($2, dirs, "/")
  197.         Dir="."
  198.         while ( dirs[ind+1] ) {
  199.                 Dir=Dir"/"dirs[ind]
  200.                 system ("mkdir " Dir" 2>/dev/null")
  201.                 ++ind
  202.         }
  203.         next
  204. }
  205. /^\<\-\-\>/ {
  206.         File = ""
  207.         next
  208. }
  209. File { print >> File }
  210. <-->
  211. <++> EX/PMEU/extract.sh
  212. #!/bin/sh
  213. # exctract.sh : Written 9/2/1997 for the Phrack Staff by <sirsyko>
  214. #
  215. # note, this file will create all directories relative to the current directory
  216. # originally a bug, I've now upgraded it to a feature since I dont want to deal
  217. # with the leading / (besides, you dont want hackers giving you full pathnames
  218. # anyway, now do you :)
  219. # Hopefully this will demonstrate another useful aspect of IFS other than 
  220. # haxoring rewt
  221. #
  222. # Usage: ./extract.sh <filename>
  223.  
  224. cat $* | (
  225. Working=1
  226. while [ $Working ];
  227. do
  228.         OLDIFS1="$IFS"
  229.         IFS=
  230.         if read Line; then
  231.                 IFS="$OLDIFS1"
  232.                 set -- $Line
  233.                 case "$1" in
  234.                 "<++>") OLDIFS2="$IFS"
  235.                         IFS=/
  236.                         set -- $2
  237.                         IFS="$OLDIFS2"
  238.                         while [ $# -gt 1 ]; do
  239.                                 File=${File:-"."}/$1
  240.                                 if [ ! -d $File ]; then
  241.                                         echo "Making dir $File"
  242.                                         mkdir $File
  243.                                 fi
  244.                                 shift
  245.                         done                               
  246.                         File=${File:-"."}/$1
  247.                         echo "Storing data in $File"
  248.                 ;;
  249.                 "<-->") if [ "x$File" != "x" ]; then
  250.                                 unset File
  251.                         fi ;;
  252.                 *)      if [ "x$File" != "x" ]; then
  253.                                         IFS=
  254.                                         echo "$Line" >> $File
  255.                                         IFS="$OLDIFS1"
  256.                         fi
  257.                 ;;
  258.                 esac
  259.                 IFS="$OLDIFS1"
  260.         else
  261.                 echo "End of file"
  262.                 unset Working
  263.         fi
  264. done
  265. )                                                                    
  266. <-->
  267. <++> EX/PMEU/extract.py
  268. #! /bin/env python
  269. # extract.py    Timmy 2tone <_spoon_@usa.net>
  270.  
  271. import sys, string, getopt, os
  272.  
  273. class Datasink:
  274.     """Looks like a file, but doesn't do anything."""
  275.     def write(self, data): pass
  276.     def close(self): pass
  277.  
  278. def extract(input, verbose = 1):
  279.     """Read a file from input until we find the end token."""
  280.  
  281.     if type(input) == type('string'):
  282.         fname = input
  283.         try: input = open(fname)
  284.         except IOError, (errno, why):
  285.             print "Can't open %s: %s" % (fname, why)
  286.             return errno
  287.     else:
  288.         fname = '<file descriptor %d>' % input.fileno()
  289.  
  290.     inside_embedded_file = 0
  291.     linecount = 0
  292.     line = input.readline()
  293.     while line:
  294.  
  295.         if not inside_embedded_file and line[:4] == '<++>':
  296.  
  297.             inside_embedded_file = 1
  298.             linecount = 0
  299.  
  300.             filename = string.strip(line[4:])
  301.             if mkdirs_if_any(filename) != 0:
  302.                 pass
  303.  
  304.             try: output = open(filename, 'w')
  305.             except IOError, (errno, why):
  306.                 print "Can't open %s: %s; skipping file" % (filename, why)
  307.                 output = Datasink()
  308.                 continue
  309.  
  310.             if verbose:
  311.                 print 'Extracting embedded file %s from %s...' % (filename,
  312.                                                                   fname),
  313.  
  314.         elif inside_embedded_file and line[:4] == '<-->':
  315.             output.close()
  316.             inside_embedded_file = 0
  317.             if verbose and not isinstance(output, Datasink):
  318.                 print '[%d lines]' % linecount
  319.  
  320.         elif inside_embedded_file:
  321.             output.write(line)
  322.  
  323.         # Else keep looking for a start token.
  324.         line = input.readline()
  325.         linecount = linecount + 1
  326.  
  327. def mkdirs_if_any(filename, verbose = 1):
  328.     """Check for existance of /'s in filename, and make directories."""
  329.  
  330.     path, file = os.path.split(filename)
  331.     if not path: return
  332.  
  333.     errno = 0
  334.     start = os.getcwd()
  335.     components = string.split(path, os.sep)
  336.     for dir in components:
  337.         if not os.path.exists(dir):
  338.             try:
  339.                 os.mkdir(dir)
  340.                 if verbose: print 'Created directory', path
  341.  
  342.             except os.error, (errno, why):
  343.                 print "Can't make directory %s: %s" % (dir, why)
  344.                 break
  345.  
  346.         try: os.chdir(dir)
  347.         except os.error, (errno, why):
  348.             print "Can't cd to directory %s: %s" % (dir, why)
  349.             break
  350.  
  351.     os.chdir(start)
  352.     return errno
  353.  
  354. def usage():
  355.     """Blah."""
  356.     die('Usage: extract.py [-V] filename [filename...]')
  357.  
  358. def main():
  359.     try: optlist, args = getopt.getopt(sys.argv[1:], 'V')
  360.     except getopt.error, why: usage()
  361.     if len(args) <= 0: usage()
  362.  
  363.     if ('-V', '') in optlist: verbose = 0
  364.     else: verbose = 1
  365.  
  366.     for filename in args:
  367.         if verbose: print 'Opening source file', filename + '...'
  368.         extract(filename, verbose)
  369.  
  370. def db(filename = 'P51-11'):
  371.     """Run this script in the python debugger."""
  372.     import pdb
  373.     sys.argv[1:] = ['-v', filename]
  374.     pdb.run('extract.main()')
  375.  
  376. def die(msg, errcode = 1):
  377.     print msg
  378.     sys.exit(errcode)
  379.  
  380. if __name__ == '__main__':
  381.     try: main()
  382.     except KeyboardInterrupt: pass
  383.  
  384.  
  385.     except getopt.error, why: usage()
  386.     if len(args) <= 0: usage()
  387.  
  388.     if ('-V', '') in optlist: verbose = 0
  389.     else: verbose = 1
  390.  
  391.     for filename in args:
  392.         if verbose: print 'Opening source file', filename + '...'
  393.         extract(filename, verbose)
  394.  
  395. def db(filename = 'P51-11'):
  396.     """Run this script in the python debugger."""
  397.     import pdb
  398.     sys.argv[1:] = [filename]
  399.     pdb.run('extract.main()')
  400.  
  401. def die(msg, errcode = 1):
  402.     print msg
  403.     sys.exit(errcode)
  404.  
  405. if __name__ == '__main__':
  406.     try: main()
  407.     except KeyboardInterrupt: pass              # No messy traceback.
  408. <-->
  409.  
  410. ----[  EOF
  411.